home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / fb386 / io_bas / vol_set.bas < prev   
BASIC Source File  |  1994-06-01  |  2KB  |  48 lines
  1. 10 '
  2. 20 '   < 音量コントローラー ( I/O 操作サンプル ) >
  3. 30 '                                  for F-BASIC 386 V2.1 L10 以上
  4. 40 '                                      Programmed by Luzz-tum
  5. 50 ' サブルーチン名　「 *VOL_SET 」
  6. 60 '   下の３種類の音量が操作できます。
  7. 70 '   対応する変数に音量を設定して、GOSUB *VOL_SET を実行して下さい。
  8. 80 '   音量は ( 0 - 64 ) の 65 段階で、0 はミュート（消音）です。
  9. 90 '
  10. 100 '              [ 機能 ]      [ 変数名 ]
  11. 110 '             CD 音声    --- VOL_CD_OUT
  12. 120 '             マイク入力 --- VOL_MIC_IN
  13. 130 '             ライン入力 --- VOL_LINE_IN
  14. 140 '
  15. 150 ' このサンプルでは CD 演奏開始直後にフェードアウトします。
  16. 160 '
  17. 170 SCREEN 0:SCREEN @0:COLOR 7,0,7,0:CLS
  18. 180 PRINT "音楽入りの CD を入れて、何かキーを押して下さい。"
  19. 190 PRINT "フェードアウト（少しずつ音量を下げる）をします。"
  20. 200 WHILE INKEY$="":WEND
  21. 210 CD PLAY 2
  22. 220 WAIT 500
  23. 230 FOR VOL_CD_OUT=64 TO 0 STEP -1
  24. 240   WAIT 8:GOSUB *VOL_SET
  25. 250 NEXT
  26. 260 CD STOP
  27. 270 END
  28. 280 '
  29. 290 *VOL_SET  ' CD out , MIC in , Line in のボリュームを操作
  30. 300           ' 変数名はそれぞれ VOL_CD_OUT , VOL_MIC_IN , VOL_LINE_IN
  31. 310           ' 設定値は 0 - 64 の 65 段階で 0 はミュート（消音）
  32. 320  IF VOL_CD_OUT=0 THEN
  33. 330     OUT &H4E3,0:OUT &H4E2,0:OUT &H4E3,1:OUT &H4E2,0
  34. 340  ELSE
  35. 350     OUT &H4E3,4:OUT &H4E2,VOL_CD_OUT-1:OUT &H4E3,5:OUT &H4E2,VOL_CD_OUT-1
  36. 360  ENDIF
  37. 370  IF VOL_MIC_IN=0 THEN
  38. 380     OUT &H4E3,2:OUT &H4E2,0
  39. 390  ELSE
  40. 400     OUT &H4E3,6:OUT &H4E2,VOL_MIC_IN-1
  41. 410  ENDIF
  42. 420  IF VOL_LINE_IN=0 THEN
  43. 430     OUT &H4E1,0:OUT &H4E0,0:OUT &H4E1,1:OUT &H4E0,0
  44. 440  ELSE
  45. 450     OUT &H4E1,4:OUT &H4E0,VOL_LINE_IN-1:OUT &H4E1,5:OUT &H4E0,VOL_LINE_IN-1
  46. 460  ENDIF
  47. 470  RETURN
  48.